home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 8
/
FM Towns Free Software Collection 8.iso
/
fb386
/
math
/
insu.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-01
|
953b
|
31 lines
10 CLS
20 PRINT "因数分解の計算 解答時にPF1でメニュー"
30 PRINT "aX2+bX+c"
40 INPUT "a=",A
50 INPUT "b=",B
60 INPUT "c=",C
70 IF A>1 OR A<1 THEN 100
80 IF A=1 THEN 110
90 IF B=1 THEN 120
100 PRINT A"X2+"B"X+"C : GOTO 130
110 PRINT "X2+"B"X+"C : GOTO 130
120 PRINT A"X2+X+"C : GOTO 130
130 D=B*B-4*A*C
140 X1=(-B+SQR(D))/(2*A)
150 X2=(-B-SQR(D))/(2*A)
160 X1=-1*X1 : X2=-1*X2
170 IF X1=X2 AND X1>0 THEN 230
180 IF X1=X2 AND X1<0 THEN 240
190 IF X1>0 AND X2>0 THEN 250
200 IF X1<0 AND X2>0 THEN 260
210 IF X1>0 AND X2<0 THEN 270
220 IF X1<0 AND X2<0 THEN 280
230 PRINT "(X+"X1")2" : GOTO 290
240 PRINT "(X"X1")2" : GOTO 290
250 PRINT "(X+"X1")(X+"X2")": GOTO 290
260 PRINT "(X"X1")(X+"X2")" : GOTO 290
270 PRINT "(X+"X1")(X"X2")" : GOTO 290
280 PRINT "(X"X1")(X"X2")"
290 A$=INKEY$:IF A$="" THEN 290
300 IF A$="1" THEN RUN "MENU.BAS" ELSE GOTO 10